home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / basic / benttext.bas < prev    next >
Encoding:
BASIC Source File  |  1986-08-14  |  744 b   |  23 lines
  1. 10 'BENTTEXT.BAS -- SHOWS THAT CHARACTERS IN GRAPHICS MODE ARE
  2. 20 'TREATED THE SAME EXACT WAY AS ANY OTHER PIXEL GRAPHICS.
  3. 40 SCREEN 1:CLS:DEFINT A-Z
  4. 50 '
  5. 60 ' *** FIRST GET THE LARGER CHARACTERS ***
  6. 70 '
  7. 80 DIM O(20),P(20),S(20),Y(20),D(20),A(20),I(20)
  8. 90 LOCATE 1,1:PRINT "OAS":GET (0,0)-(7,7),O
  9. 100 GET (8,0)-(15,7),A:GET (16,0)-(23,7),S
  10. 120 '
  11. 130 ' *** NOW GET THE SMALL ONES ***
  12. 140 '
  13. 150 SCREEN 2:LOCATE 1,1:PRINT "YDPI"
  14. 160 GET (0,0)-(7,7),Y:GET (8,0)-(15,7),D
  15. 170 GET (16,0)-(23,7),P:GET (24,0)-(31,7),I
  16. 180 '
  17. 190 ' *** DISPLAY THEM ***
  18. 200 '
  19. 210 CLS:PUT (102,80),O:PUT (115,82),O
  20. 220 PUT (132,84),P:PUT (144,85),S:PUT (160,84),Y
  21. 230 PUT (118,99),D:PUT (135,98),A:PUT (150,97),I
  22. 240 PUT (167,96),S:PUT (190,94),Y
  23.